#!/bin/bash
# Script para recorrer una lista de verbos y buscar sus conjugaciones.
# Coloca palabras que dieron error procesándose en ../error.lst.

# Variables.
prefijo="SrvltGUIBusUsual?LEMA="
url="http://buscon.rae.es/draeI/$prefijo"
prefijoVerbos="SrvltGUIVerbos?IDVERBO="
urlVerbos="http://buscon.rae.es/draeI/$prefijoVerbos"

# Recorrer palabras.
echo "Recorriendo lista..."
for palabra in `cat $1`
do
	echo "Procesando \"$palabra\"."
	
	# Llamar a la definición del verbo.
	./wget.sh "$url$palabra"

	# Buscar error.
	error=0
	nombreArchivo="$prefijo$palabra"
	existeArchivo=`ls | grep "$nombreArchivo"`
	if [ "$existeArchivo" != '' ]
	then
		# Buscar id del verbo.
		idVerbo=`cat "$nombreArchivo" | sed 's/.*IDVERBO=\([0-9]*\)\".*/\1/'`
		#echo "$idVerbo"

		# Buscar conjugaciones.
		./wget.sh "$urlVerbos$idVerbo"

		# Extraer verbos de respuesta.
		./extraerVerbos.sh "$prefijoVerbos$idVerbo"
		result=$?

		# Verificar error
		if [ $result -ne 0 ]
		then
			echo "Error con palabra \"$palabra\"."
			echo "$palabra" >> ../error.lst
		else
			echo "Conjugaciones de \"$palabra\" conseguidos exitosamente."
		fi

		# Borrar archivos temporales.
		rm SrvltGUI*
	else
		echo "Error con palabra \"$palabra\"."
		echo "$palabra" >> ../error.lst
	fi
done

echo "Proceso terminado."
